﻿'
' Boogaloo® - http://www.mindfly.com
' Copyright (c) 2008
' by Mindfly, Inc.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Imports System.IO
Imports Boogaloo.Core.UI
Imports Boogaloo.Admin.UI.Controls
Imports Boogaloo.Core
Imports Boogaloo.Core.BLL


Namespace UI.Webpages

    Partial Public Class PingServices
        Inherits BaseAdminPage

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            If Not Page.IsPostBack Then BindPage()

        End Sub


        Private Sub BindPage()

            rpt.DataSource = PingService.GetPingServices
            rpt.DataBind()

            If rpt.Items.Count = 0 Then lbl_message.Text = ""
        End Sub

        Protected Sub rpt_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles rpt.ItemDataBound

            Dim ps As PingService = CType(e.Item.DataItem, PingService)
            If ps IsNot Nothing Then

                Dim lht As LabelHiddenTextbox = CType(e.Item.FindControl("lht"), LabelHiddenTextbox)
                lht.label = ps.uri
                lht.Text = ps.uri
                lht.CommandArgument = ps.ping_service_id
                lht.ValidationGroup = "updatePingService" & ps.ping_service_id.ToString

                Dim dwiz As CommitWizard = CType(e.Item.FindControl("dwiz"), CommitWizard)
                dwiz.CommandArgument = ps.ping_service_id



            End If

        End Sub

        Protected Sub lb_add_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lb_add.Click

            If Page.IsValid Then
                Dim ping_service_id As Integer = PingService.InsertPingService(txt_name.Text)
                txt_name.Text = String.Empty
                BindPage()
            End If

        End Sub

        Protected Sub lht_Click(ByVal sender As Object, ByVal e As EventArgs)

            Dim lht As LabelHiddenTextbox = CType(sender, LabelHiddenTextbox)
            If Page.IsValid And lht IsNot Nothing Then

                Dim ps As PingService = PingService.GetPingService(CType(lht.CommandArgument, Integer))
                If ps IsNot Nothing Then

                    ps.uri = lht.Text
                    ps.Update()

                    BindPage()

                End If

            End If

        End Sub

        Protected Sub dwiz_Click(ByVal sender As Object, ByVal e As EventArgs)

            Dim dwiz As CommitWizard = CType(sender, CommitWizard)
            If dwiz IsNot Nothing Then

                Dim ps As PingService = PingService.GetPingService(CType(dwiz.CommandArgument, Integer))
                If ps IsNot Nothing Then

                    ps.Delete()

                    BindPage()
                End If

            End If

        End Sub

    End Class

End Namespace